﻿Public Class ven_eng_rec3

    Private Sub btnok_ven_eng_rec3_Click(sender As Object, e As EventArgs) Handles btnok_ven_eng_rec3.Click
        yc3 = Convert.ToSingle(txtyc3_eng_rec3.Text)
        pc3 = Convert.ToSingle(txtpc3_eng_rec3.Text)
        angpresn3 = Convert.ToSingle(txtangpresn3_eng_rec3.Text)
        angpresn3 = angpresn3 * (3.141592 / 180)
        angheli3 = 0
        angheli3 = angheli3 * (3.141592 / 180)
        mod3 = Convert.ToSingle(txtmod3_eng_rec3.Text)
        z3 = Convert.ToSingle(txtz3_eng_rec3.Text)
        mt3 = (pc3 * 10 ^ 6) / nrev
        dp3 = (mod3 * z3) / Math.Cos(angheli3)
        c3x = (2 * mt3) / dp3
        c3y = c3x * Math.Tan(angheli3)
        c3z = c3x * (Math.Tan(angpresn3) / Math.Cos(angheli3))
        m3x = -dp3 * 0.5 * c3y
        m3y = dp3 * 0.5 * c3x
        m3z = 0

        Me.Close()
    End Sub

    
End Class